home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / ManipCols-Example.tcl < prev    next >
Encoding:
Text File  |  2000-10-30  |  894 b   |  25 lines
  1. ## -*-Tcl-*-
  2.  # ==========================================================================
  3.  #  Mode Examples - a Help package for Alpha
  4.  # 
  5.  #  FILE: "ManipCols-Example.tcl"
  6.  #                                    created: 10/17/00 {02:18:43 pm} 
  7.  #                                last update: 10/17/00 {03:55:04 pm} 
  8.  #  Description: 
  9.  #  
  10.  #  Script for the "ManipCols Example" in the Mode Examples package.
  11.  # 
  12.  #  Author: Craig Barton Upright
  13.  #  E-mail: <cupright@princeton.edu>
  14.  #    mail: Princeton University, Department of Sociology
  15.  #          Princeton, New Jersey 08544
  16.  #     www: <http://www.princeton.edu/~cupright>
  17.  #  
  18.  # ==========================================================================
  19.  ##
  20.  
  21. set f [file join $HOME "Mode Examples" "ManipCols-Example"]
  22. new -n "* Manip Cols Tutorial *" -m Setx -text [file::readAll $f] -shell 1
  23. setWinInfo tabsize 8
  24. goto [minPos]
  25. unset f